	jmp scr_aftvar
	skrol .byte $08 ; 1+2+4 + 1 additional - wartosc do $d016
scr_aftvar
	
;	lda #$0d ; charset $7000-$47ff (lo) 
	 	; videoram $4000-$43ff (hi)
;	sta $d018
	
;	lda skrol   ; do skrola
;	sta $d016

	lda #$18    ; text
	sta $d011
	
	lda #1+2+4+8 ; H-scroll
	sta $d016

	; decrement H-scroll value
	; if 0 then put next char into screen
	dec skrol
	bne dalejs
	lda #1+2+4
	sta skrol
	
	; inrcement char pointer(s)
	; in scroll text
	inc $b4
	bne hopa

	inc $b5

hopa	ldx #00
	
	; move line left
scrlup	lda $6800+8*40+1,x
	sta $6800+8*40,x
	inx
	cpx #16
	bne scrlup
	
; na str. zerowej : $b4,$b5

	ldy #$00
	lda ($b4),y
	bne walwekran
	jsr scrollsetup
	jmp dalejs
walwekran 	sta $6800+8*40+16
	
dalejs 	

